Celestin Apprentice 5/Apprentice-Release5.iso/Source Code/C/Applications/GW AdaEd 1.4.2/GWAdaDemos/Spider/DRAW13.ADA

Text File | 1994-01-10 | 288 b | 26 lines | [TEXT/GADA]

WITH Spider; USE Spider;
PROCEDURE Drawing13 IS

-- Declare a variable named Count
Count: integer;

PROCEDURE Walk IS
BEGIN
WHILE NOT AtWall LOOP
     Step;
END LOOP;
END Walk;

BEGIN
Start;
Red;

-- Repeat 4 times
FOR Count IN 1..4 LOOP
   Walk;
   Turn;
END LOOP;

Quit;
END Drawing13;